home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib13.dsk / HPLOT ANIM LISTING 1.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  31 lines
  1. 10  HGR : GOSUB 1900:INCR = 10
  2. 15  IF BASH(4) > = 279  THEN  END 
  3. 20  HCOLOR= 0: GOSUB 1001: GOSUB 1210: HCOLOR= 3: GOSUB 1001: GOTO 15
  4. 1000  REM  *** DRAW ***
  5. 1001 BASL = 0: REM  ..........SET POINTER TO START OF TABLE
  6. 1010 CTR = BASH(BASL): REM  ..GET # OF POINTS
  7. 1015 BASL = BASL +1: REM  .....POINT TO X COORDINATE
  8. 1020 X = BASH(BASL): REM  ....GET X COORDINATE
  9. 1045 BASL = BASL +2: REM  .....POINT TO Y COORDINATE
  10. 1050 Y = BASH(BASL): REM  ....GET Y COORDINATE
  11. 1060  HPLOT X,Y: REM  ........HPLOT STARTING POINT
  12. 1065 CTR = CTR -1: REM  .......NOTE THAT A POINT WAS USED
  13. 1075 BASL = BASL +1: REM  .....POINT TO NEXT X COORDINATE
  14. 1080 X = BASH(BASL): REM  ....GET X COORDINATE
  15. 1105 BASL = BASL +2: REM  .....POINT TO Y COORDINATE
  16. 1110 Y = BASH(BASL): REM  ....GET Y COORDINATE
  17. 1130  HPLOT  TO X,Y: REM  ......DRAW A LINE
  18. 1135 CTR = CTR -1: REM  .......ANOTHER POINT USED
  19. 1140  IF CTR < >0  THEN 1015
  20. 1145  RETURN 
  21. 1210 Y = 0: REM  .............SET POINTER TO START
  22. 1220 CTR = BASH(Y): REM  .....GET # OF POINTS
  23. 1225 Y = Y +1: REM  ...........POINT TO X COORDINATE
  24. 1240 BASH(Y) = BASH(Y) +INCR: REM  ADD INCREMENT
  25. 1270 Y = Y +2: REM  ...........POINT TO Y COORDINATE
  26. 1275 CTR = CTR -1: REM  .......A POINTS BEEN USED
  27. 1280  IF CTR < >0  THEN 1225
  28. 1285  RETURN 
  29. 1900  DIM BASH(96): FOR X = 0 TO 96: READ BASH(X): NEXT X: RETURN 
  30. 2000  DATA  32,10,0,14,29,0,14,16,0,11,23,0,11,14,0,12,25,0,12,12,0,13,27,0,13,18,0,10,21,0,10,10,0,15,12,0,15,15,0,15,16,0,15
  31. 2010  DATA  19,0,15,20,0,15,23,0,15,24,0,15,27,0,15,29,0,15,11,0,16,28,0,16,12,0,17,27,0,17,13,0,18,26,0,18,14,0,19,25,0,19,16,0,20,23,0,20,19,0,21,20,0,21